f <- function() { 

a <- 1
a[c("a", "b", "c")]

}

f()
